program exam
var n1,n2,n3,n4,n5,t1,maxs:integer;
function max(var x1,x2:integer):integer;
function max1(function P:integer):integer;
begin
 if(x1>x2)then maxs:=P(n1,n2) else maxs:=x2
end
begin
 if(x1>x2)then maxs:=max1(max) else maxs:=max(n3,n4)
end
begin
write('input 5 numbers:');
read(n1,n2,n3,n4,n5);
T1:=n1;
max(t1,n2);
T1:=max(t1,n2);
write('max number:',n1)
end